#!/usr/bin/perl

use strict;
use warnings;
use lib '../lib';
$|=1;

use Config::System { import => [qw(isolate_configuration)] };
use Foo;

my $foo = Foo->new;

isolate_configuration {
    Store->set(Foo => Verbose => 0);
    $foo->do_something;
};
    
$foo->do_something;

# 1st prints Verbose is [0], because it has been set as such
# but because it has been set inside an isolated configuration, and because
# default.properties config file says verbose is 1, the 2nd do_something()
# will print Verbose is [1]
# had the 1st Store->set NOT been run in an isolated configuration,
# the 2nd do_something() would have thought that Verbose is 0 


